home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 2
/
Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso
/
Aminet
/
comm
/
term
/
term34dRexx.lha
/
Maus_User.term
< prev
next >
Wrap
Text File
|
1993-04-01
|
2KB
|
68 lines
/** $VER: Maus_User.term 1.0 (12.3.93)
**
** Fuehrt einen Auto-Login in die Maus durch.
**
** Geschrieben von Olaf Thyssen
** Internet: Olaf_Thyssen%kr.maus.de
**
** Um dieses Programm zu verwenden, sollte man das
** Telefonbuch oeffnen, den Telefonbucheintrag anwaehlen,
** der dieses Programm benutzen soll, den Einstellungen
** `Commands...' oeffnen und unter `Startup-/Login macro'
** eintippen:
**
** \a Maus_User
**
** Nun bitte die `User/Password...' Einstellungen aendern,
** sodass der zu verwendende Benutzername und das Benutzer-
** kennwort korrekt eingetragen sind.
**
** Jetzt die Telefonbuchdatei abspeichern und diese Datei
** in die Schublade "REXX:" kopieren.
**/
/* Die Wartezeit auf 50 Sekunden setzen. */
TIMEOUT 50
/* Auf die Frage nach dem Benutzernamen warten. */
WAIT 'Sind Sie eingetragener Benutzer?'
/* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
IF rc ~= 0 THEN EXIT
/* Eine Sekunde warten... */
DELAY 1
SEND 'J'
WAIT 'Ihr Name'
/* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
IF rc ~= 0 THEN EXIT
/* Eine Sekunde warten... */
DELAY 1
/* Den Benutzernamen abschicken, einen Zeilenruecklauf
* hinzugeben.
*/
SEND '\u\r'
/* Auf die Frage nach dem Benutzerkennwort warten. */
WAIT 'Ihr Password'
/* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
IF rc ~= 0 THEN EXIT
/* Eine Sekunde warten... */
DELAY 1
/* Das Benutzerkennwort abschicken, einen Zeilenruecklauf
* hinzugeben.
*/
SEND '\p\r'
/* Auf die Aufforderung die Leertaste zu druecken warten. */
TIMEOUT 20
WAIT '- Weiter mit Leertaste -'
/* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
IF rc ~= 0 THEN EXIT
/* Den ASCII Wert 32 (SPACE) abschicken */
SEND byte 32